home *** CD-ROM | disk | FTP | other *** search
/ CD Schooolhouse Version 10.0 / CD Schooolhouse Version 10.0.ISO / pc / dos / math / fsultra1 / ultra_lh.asm < prev    next >
Encoding:
Assembly Source File  |  1992-06-18  |  2.7 KB  |  138 lines
  1. comment ! 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. ! 
  27. ;
  28. ; File: ULTRA.ASM (Lahey Fortran calling conventions)
  29. ;
  30.    DOSSEG
  31.    .MODEL HUGE
  32.  
  33. ;===== B: GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
  34. ;
  35.     public  i31bit, i15bit, i7bit,  i1bit,  uni,    duni
  36.     public  i32bit, i16bit, i8bit,  rinit,  vni,    dvni
  37.     public    swbstate, swbsize
  38.  
  39. ;===== D. MACRO DEFINITIONS ===========================================
  40. ;
  41. ; RinitProcStart should take two 32-bit arguments conx and shrx
  42. ;   and place them in the data segment in congx and shrgx.
  43. ;   es and ds should both point to the data segment.
  44. ;   conx must be odd (so we or with 1 just to make sure).
  45. ; FillProc
  46. ;   DS is already the data segment. ES should also be made the same.
  47.  
  48. EnterProcedure   macro
  49.     arg  arg1:dword
  50.     push bp
  51.     mov  bp,sp
  52.     if @DataSize eq 2
  53.       mov  dx,DATA
  54.       mov  ds,dx
  55.     endif
  56. endm
  57.  
  58. ExitProcedure    macro
  59.     pop  bp
  60.     ret
  61. endm
  62.  
  63. Enter2arg   macro
  64.     arg conx:dword, shrx:dword
  65.     EnterProcedure
  66.     mov  dx,ds
  67.     mov  es,dx
  68.     mov  di,offset congx
  69.     lds  si,ConX            ; Store the parameters in
  70.     lodsw                   ; the data segment in
  71.     shl  ax,1
  72.     stosw                   ; conglo:conghi and
  73.     lodsw                   ; shrglo:shrghi.
  74.     rcl  ax,1
  75.     stosw
  76.     mov  di,offset shrgx
  77.     lds  si,ShrX
  78.     lodsw
  79.     stosw
  80.     lodsw
  81.     stosw
  82.     mov  ds,dx              ; setup the segment regs.
  83.     or   byte ptr congx,1
  84. endm
  85.  
  86. Exit2arg     macro
  87.     ExitProcedure
  88. endm
  89.  
  90. EnterFill    macro
  91.     mov    ax,ds
  92.     mov    es,ax
  93. endm
  94.  
  95. ExitFill    macro
  96.     ret
  97. endm
  98.  
  99. DwordFn macro
  100.     les di,arg1
  101.     stosw
  102.     mov ax,dx
  103.     stosw
  104. endm
  105.  
  106. WordFn  macro
  107.     les di,arg1
  108.     stosw
  109. endm
  110.  
  111. ByteFn  macro
  112.     les di,arg1
  113.     cbw                 ; convert bytes to integer*2
  114.     stosw
  115. endm
  116.  
  117. RealFn  macro
  118.     lds  bx,arg1
  119.     fstp dword ptr [bx]
  120. endm
  121.  
  122. DoubleFn macro
  123.     lds  bx,arg1
  124.     fstp qword ptr [bx]
  125. endm
  126.  
  127. DGROUP GROUP DATA
  128. DATA SEGMENT WORD PUBLIC 'DATA'
  129. ASSUME DS:DGROUP
  130.   INCLUDE ULTRADAT.INC
  131. DATA ENDS
  132.  
  133. .STACK 10h
  134.  
  135. .CODE
  136.   INCLUDE ULTRACOD.INC
  137. END
  138.